############################## cor 多变量之间 Spearman 斯皮尔曼相关系数 存在正相关关系 #############################
##### 科研工具2  cor 多变量之间 Spearman 斯皮尔曼相关系数 存在正相关关系

library(readr)
library(corrplot)
setwd('父级路径')
demo <- read_csv("demo.csv")
demo2 <- demo[,c('MECPP','MnBP','MEHHP','MEOHP','MiBP','MiNP','MCOP','MCPP','MEP','MBzP')]
data<-cor(demo2,method="spearman")
Cairo::CairoTIFF(file="fig2.tiff", width=8, height=8,units="in",dpi=150)
corrplot(data, method = "number", type = "upper",order = 'hclust',
         tl.col = "black", tl.cex = 0.8, tl.srt = 45,tl.pos = "lt")

corrplot(data, method = "circle", type = "lower",order = 'hclust',
         tl.col = "n", tl.cex = 0.8, tl.pos = "n",
         add = T)
dev.off()